home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / fortran / peekpo.com / PUTL.FOR < prev    next >
Encoding:
Text File  |  1990-10-16  |  338 b   |  10 lines
  1.       PROGRAM CRT_WRITE_F77L
  2.       integer*4 icrt/z'B8000000'/                    ! Color adapter
  3. c
  4.       call put_it(carg(icrt), 7,0,21,17,'Message from F77L Follows')
  5.       call put_it(carg(icrt),15,1,21,18,'HOW''S ')   ! Bold White
  6.       call put_it(carg(icrt),14,9,27,18,'THIS?')     ! Flashing Yellow
  7. c
  8.       stop
  9.       end
  10.